home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / hypercar / xcmd / proglib.sit / Resource Library / background_6603.txt < prev    next >
Text File  |  1989-05-28  |  4KB  |  183 lines
  1. -- background: 6603 from stack: in
  2. -- bmap block id: 7584
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Control
  6. ----- HyperTalk script -----
  7. function StripPath file
  8. put length(file) into len
  9. if len < 25 then
  10.   return file
  11. else
  12.   return "ΓǪ" & (char (len - 22) to len of file)
  13. end if
  14. end StripPath
  15.  
  16.  
  17.  
  18.  
  19. -- part 1 (button)
  20. -- low flags: 00
  21. -- high flags: 0001
  22. -- rect: left=475 top=26 right=59 bottom=504
  23. -- title width / last selected line: 0
  24. -- icon id / first selected line: 21700 / 21700
  25. -- text alignment: 1
  26. -- font id: 0
  27. -- text size: 12
  28. -- style flags: 0
  29. -- line height: 16
  30. -- part name: Home
  31. ----- HyperTalk script -----
  32. on mouseUp
  33.   go home
  34. end mouseUp
  35.  
  36.  
  37.  
  38. -- part 2 (button)
  39. -- low flags: 00
  40. -- high flags: 0001
  41. -- rect: left=475 top=60 right=93 bottom=504
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 24317 / 24317
  44. -- text alignment: 1
  45. -- font id: 0
  46. -- text size: 12
  47. -- style flags: 0
  48. -- line height: 16
  49. -- part name: Welcome
  50. ----- HyperTalk script -----
  51. on mouseUp
  52.   go to card "Welcome"
  53. end mouseUp
  54.  
  55.  
  56.  
  57. -- part 3 (button)
  58. -- low flags: 00
  59. -- high flags: 8003
  60. -- rect: left=423 top=162 right=187 bottom=507
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 0 / 0
  63. -- text alignment: 1
  64. -- font id: 0
  65. -- text size: 12
  66. -- style flags: 0
  67. -- line height: 16
  68. -- part name: Functions
  69. ----- HyperTalk script -----
  70. on mouseUp
  71.   go to first card of background "Functions"
  72. end mouseUp
  73.  
  74.  
  75.  
  76. -- part 4 (button)
  77. -- low flags: 00
  78. -- high flags: 8003
  79. -- rect: left=423 top=220 right=245 bottom=507
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 0 / 0
  82. -- text alignment: 1
  83. -- font id: 0
  84. -- text size: 12
  85. -- style flags: 0
  86. -- line height: 16
  87. -- part name: Sounds
  88. ----- HyperTalk script -----
  89. on mouseUp
  90.   go to first card of background "Sounds"
  91. end mouseUp
  92.  
  93.  
  94.  
  95. -- part 5 (button)
  96. -- low flags: 00
  97. -- high flags: 8003
  98. -- rect: left=423 top=191 right=216 bottom=507
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 0 / 0
  101. -- text alignment: 1
  102. -- font id: 0
  103. -- text size: 12
  104. -- style flags: 0
  105. -- line height: 16
  106. -- part name: Icons
  107. ----- HyperTalk script -----
  108. on mouseUp
  109.   go to first card of background "Icons"
  110. end mouseUp
  111.  
  112.  
  113.  
  114. -- part 6 (button)
  115. -- low flags: 00
  116. -- high flags: 8003
  117. -- rect: left=423 top=104 right=129 bottom=507
  118. -- title width / last selected line: 0
  119. -- icon id / first selected line: 0 / 0
  120. -- text alignment: 1
  121. -- font id: 0
  122. -- text size: 12
  123. -- style flags: 0
  124. -- line height: 16
  125. -- part name: Commands
  126. ----- HyperTalk script -----
  127. on mouseUp
  128.   go to first card of background "Commands"
  129. end mouseUp
  130.  
  131.  
  132.  
  133. -- part 7 (button)
  134. -- low flags: 00
  135. -- high flags: 0001
  136. -- rect: left=471 top=300 right=331 bottom=502
  137. -- title width / last selected line: 0
  138. -- icon id / first selected line: 6720 / 6720
  139. -- text alignment: 1
  140. -- font id: 0
  141. -- text size: 12
  142. -- style flags: 0
  143. -- line height: 16
  144. -- part name: New Button
  145. ----- HyperTalk script -----
  146. on mouseUp
  147.   go back
  148. end mouseUp
  149.  
  150.  
  151.  
  152. -- part 8 (button)
  153. -- low flags: 00
  154. -- high flags: 8003
  155. -- rect: left=423 top=133 right=158 bottom=507
  156. -- title width / last selected line: 0
  157. -- icon id / first selected line: 0 / 0
  158. -- text alignment: 1
  159. -- font id: 0
  160. -- text size: 12
  161. -- style flags: 0
  162. -- line height: 16
  163. -- part name: Cursors
  164. ----- HyperTalk script -----
  165. on mouseUp
  166.   go to first card of background "Cursors"
  167. end mouseUp
  168.  
  169.  
  170.  
  171. -- part 9 (field)
  172. -- low flags: 00
  173. -- high flags: 0000
  174. -- rect: left=126 top=21 right=45 bottom=374
  175. -- title width / last selected line: 0
  176. -- icon id / first selected line: 0 / 0
  177. -- text alignment: 1
  178. -- font id: 3
  179. -- text size: 18
  180. -- style flags: 768
  181. -- line height: 24
  182. -- part name: 
  183.